home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
util
/
text
/
quilldem.lha
/
Demo
/
Rexx
/
Date.quill
< prev
next >
Wrap
Text File
|
1995-08-29
|
1KB
|
59 lines
/**
** $VER: Date.quill 1.0 (30.9.94)
** By Timothy J. Aston
**
** Pops up a requester with several date formats for you to choose from,
** then inserts the date in the selected format at the current cursor
** position.
**
**/
/* Some setup first.
*/
options results
options failat 200
/* Date formats.
*/
dateformat.0 = 'DD/MM/YY'
dateformat.1 = 'MM/DD/YY'
dateformat.2 = 'YY/MM/DD'
dateformat.3 = 'DD Mmm YY'
dateformat.4 = 'Mmm. DD, YYYY'
dateformat.5 = 'Weekday, Mmm. DD, YYYY'
dateformat.count = 6
main:
'REQUESTITEM' '"Select date format" STEM dateformat'
if rc = 0 then do
format = result
select
when format = 0 then do
'TEXT' date(e)
end
when format = 1 then do
'TEXT' date(u)
end
when format = 2 then do
'TEXT' date(o)
end
when format = 3 then do
'TEXT' date(n)
end
when format = 4 then do
'TEXT' word(date(n), 2)'.' word(date(n), 1)',' left(date(s), 4)
end
when format = 5 then do
'TEXT' date(w)',' word(date(n), 2)'.' word(date(n), 1)',' left(date(s), 4)
end
end
end
else
'SETSTATUSBAR' '"Operation cancelled"'
exit